home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperMovies / CL⁄1 / CL_1 / card_2178.txt < prev    next >
Text File  |  1989-10-27  |  5KB  |  198 lines
  1. -- card: 2178 from stack: in
  2. -- bmap block id: 7278
  3. -- flags: 4000
  4. -- background id: 3493
  5. -- name: Region 105
  6. ----- HyperTalk script -----
  7. -- Script of card "Region 105"
  8.  
  9. on GetDataForCard cardName
  10.   --{ Hide the following for display:
  11.   global connectMode
  12.   if connectMode = "Simulation" then
  13.     S_GetDataForCard cardName
  14.     exit GetDataForCard
  15.   end if
  16.   --}
  17.   put the short name of me into cardName
  18.   put word 2 of cardName into regionNum
  19.   --put "select rep_nr,quota,sales,last_name from staff where rep_office = " & regionNum & " order by rep_nr descending; " into query
  20.   put "select rep_nr,quota,sales,last_name from staff" && "where rep_office = " & regionNum & " order by rep_nr; " into query
  21.   put "2,3,4,17" into fieldsToFill
  22.   PutDataInFields query, fieldsToFill, cardName
  23. end GetDataForCard
  24.  
  25.  
  26. --{ Hide the following for display:
  27. on S_GetDataForCard cardName
  28.   --for the simulation mode:
  29.   put "staff" into tableName
  30.   put "rep_nr,quota,sales,last_name" into fmFields
  31.   put "2,3,4,17" into toFields
  32.   if cardName is empty
  33.   then put the short name of this card into cardName
  34.   put word 2 of cardName into regionNum
  35.  
  36.   put "select" && fmFields && "from" && tableName && "where rep_office = " & regionNum && "order by rep_nr descending; " into s_query
  37.  
  38.   S_PutDataInFields s_query,tableName, selectedRecords(tableName,"rep_office",regionNum), fmFields,toFields,cardName
  39. end S_GetDataForCard
  40.  
  41. function selectedRecords tableName,keyFieldName,keyValue
  42. set lockScreen to true
  43. set lockMessages to true
  44. push card card
  45. go card tableName
  46. get number of lines of card field keyFieldName
  47. repeat with i = 1 to it
  48.   --select all records whose office number is in this region
  49.   if line i of card field keyFieldName = keyValue then
  50.     put i & "," after recordList
  51.   end if
  52. end repeat
  53. put empty into last char of recordList
  54.  
  55. pop card
  56. set lockScreen to false
  57. set lockMessages to false
  58. return recordList
  59. end selectedRecords
  60.  
  61. --}
  62.  
  63.  
  64.  
  65. -- part 18 (field)
  66. -- low flags: 80
  67. -- high flags: 2004
  68. -- rect: left=16 top=62 right=260 bottom=493
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Card Script
  77. ----- HyperTalk script -----
  78. on doSelect
  79.   put the mouseV into theClick
  80.   put textHeight of me into lineHeight
  81.   put rect of me into window
  82.   put item 1 of window into left
  83.   set the lockText of me to false
  84.   click at left, theClick
  85.   click at left, theClick + lineHeight with shiftKey
  86.   if the selection is not empty then
  87.     repeat until return is in the selection
  88.       add lineHeight to theClick
  89.       click at left, theClick + lineHeight with shiftKey
  90.     end repeat
  91.   end if
  92. end doSelect
  93.  
  94.  
  95.  
  96. -- part 21 (button)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=11 top=7 right=31 bottom=34
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 1013 / 1013
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Next
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   visual wipe left
  111.   go Next
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 22 (field)
  117. -- low flags: 81
  118. -- high flags: 2000
  119. -- rect: left=19 top=62 right=257 bottom=489
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Card Script Mask
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   send doSelect to card field "Card Script"
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part contents for background part 1
  136. ----- text -----
  137. Sales Representative Data for Region 105
  138.  
  139. -- part contents for background part 6
  140. ----- text -----
  141. rep_nr
  142.  
  143. -- part contents for background part 7
  144. ----- text -----
  145. quota
  146.  
  147. -- part contents for background part 8
  148. ----- text -----
  149. sales
  150.  
  151. -- part contents for background part 9
  152. ----- text -----
  153. percent
  154.  
  155. -- part contents for background part 16
  156. ----- text -----
  157. last_name
  158.  
  159. -- part contents for background part 26
  160. ----- text -----
  161. status
  162.  
  163. -- part contents for card part 18
  164. ----- text -----
  165. -- Script of card "Region 105"
  166.  
  167. on GetDataForCard
  168.   put the short name of me into cardName
  169.   put word 2 of cardName into regionNum
  170.   put "select rep_nr, quota, sales, last_name from staff where rep_office = " & regionNum & " order by rep_nr descending; " into query
  171.   put "2,3,4,17" into fieldsToFill
  172.   PutDataInFields query, fieldsToFill, cardName
  173. end GetDataForCard
  174.  
  175.  
  176. -- part contents for background part 33
  177. ----- text -----
  178. select rep_nr,quota,sales,last_name from staff where rep_office = 105 order by rep_nr descending; 
  179.  
  180. -- part contents for background part 2
  181. ----- text -----
  182. 100,300,1900,2200,2300
  183.  
  184. -- part contents for background part 3
  185. ----- text -----
  186. 212000.00,185000.00,110000.00,114000.00,139000.00
  187.  
  188. -- part contents for background part 4
  189. ----- text -----
  190. 264892.21,235215.22,125002.35,122121.58,125215.00
  191.  
  192. -- part contents for background part 31
  193. ----- text -----
  194. Jorgenson,Hamford,Nichols,Narci,D'Angelo
  195.  
  196. -- part contents for background part 5
  197. ----- text -----
  198. 124.9,127.1,113.6,107.1,90.0